home *** CD-ROM | disk | FTP | other *** search
/ Painter Bear's Language Bridge — Italian / Bridge_ponte_itialian.iso / pc / helpers / open.dxr / 00009_object extermination.ls < prev    next >
Encoding:
Text File  |  2001-02-22  |  214 b   |  10 lines
  1. on exterminate anObject
  2.   if count(anObject) = 0 then
  3.     return 
  4.   end if
  5.   repeat with index = 1 to count(anObject)
  6.     setProp(anObject, getPropAt(anObject, index), VOID)
  7.   end repeat
  8.   set anObject to VOID
  9. end
  10.